home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / pc / files / mac / chess_hc.hqx / Chess Stack1.0 / ChessStack V1.0 / card_6435.txt < prev    next >
Text File  |  1988-06-28  |  5KB  |  217 lines
  1. -- card: 6435 from stack: in.0
  2. -- bmap block id: 7661
  3. -- flags: 4000
  4. -- background id: 3239
  5. -- name: Options
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   global communicationsMode
  9.   if communicationsMode is "Packet" then
  10.     setBaud card field "tncBaudRate"
  11.   else
  12.     setBaud card field "ModemBaudRate"
  13.     sendSPort 1,false,"ATS0=1" & return
  14.   end if
  15. end closeCard
  16.  
  17.  
  18. -- part 4 (field)
  19. -- low flags: 00
  20. -- high flags: 6002
  21. -- rect: left=56 top=157 right=222 bottom=220
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 24
  27. -- style flags: 8448
  28. -- line height: 32
  29. -- part name: hamID
  30.  
  31.  
  32. -- part 8 (field)
  33. -- low flags: 00
  34. -- high flags: 2002
  35. -- rect: left=88 top=251 right=284 bottom=176
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 24
  41. -- style flags: 8448
  42. -- line height: 32
  43. -- part name: TncBaudRate
  44.  
  45.  
  46. -- part 9 (field)
  47. -- low flags: 00
  48. -- high flags: 2002
  49. -- rect: left=273 top=158 right=192 bottom=493
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 24
  55. -- style flags: 8448
  56. -- line height: 32
  57. -- part name: PhoneNumber
  58.  
  59.  
  60. -- part 10 (field)
  61. -- low flags: 00
  62. -- high flags: 2002
  63. -- rect: left=314 top=219 right=252 bottom=401
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 3
  68. -- text size: 24
  69. -- style flags: 8448
  70. -- line height: 32
  71. -- part name: ModemBaudRate
  72.  
  73.  
  74. -- part 11 (button)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=455 top=300 right=331 bottom=491
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 29114 / 29114
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: return
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   if card field "cm" is "Packet" then
  89.     if card field "hamID" is empty or card field "TncBaudRate" is empty then
  90.       show card field "Warning"
  91.       play "no use"
  92.       repeat while the sound is not "done"
  93.       end repeat
  94.     else
  95.       visual effect iris close
  96.       pop card
  97.     end if
  98.   else
  99.     if card field "cm" is "Modem" then
  100.       if card field "PhoneNumber" is empty or card field "ModemBaudRate" is empty then
  101.         show card field "Warning"
  102.         play "no use"
  103.         repeat while the sound is not "done"
  104.         end repeat
  105.       else
  106.         visual effect iris close
  107.         pop card
  108.       end if
  109.     end if
  110.   end if
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 15 (field)
  116. -- low flags: 01
  117. -- high flags: 0000
  118. -- rect: left=65 top=68 right=99 bottom=222
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 0
  122. -- font id: 3
  123. -- text size: 24
  124. -- style flags: 256
  125. -- line height: 32
  126. -- part name: Packet
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   global communicationsMode
  130.  
  131.   put "Packet" into communicationsMode
  132.   put "Packet" into card field "cm"
  133.   set textStyle of card field "Packet" to bold
  134.   set textStyle of card field "Modem" to plain
  135. end mouseUp
  136.  
  137.  
  138. -- part 16 (field)
  139. -- low flags: 01
  140. -- high flags: 0000
  141. -- rect: left=301 top=70 right=101 bottom=458
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 0
  145. -- font id: 3
  146. -- text size: 24
  147. -- style flags: 0
  148. -- line height: 32
  149. -- part name: Modem
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   global CommunicationsMode
  153.  
  154.   put "Modem" into communicationsMode
  155.   put "Modem" into card field "cm"
  156.   set textStyle of card field "Packet" to plain
  157.   set textStyle of card field "Modem" to bold
  158. end mouseUp
  159.  
  160.  
  161. -- part 17 (field)
  162. -- low flags: 80
  163. -- high flags: 0000
  164. -- rect: left=224 top=290 right=309 bottom=305
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 3
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: cm
  173.  
  174.  
  175. -- part 20 (field)
  176. -- low flags: 81
  177. -- high flags: 2001
  178. -- rect: left=44 top=120 right=268 bottom=494
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 0
  182. -- font id: 3
  183. -- text size: 20
  184. -- style flags: 8448
  185. -- line height: 26
  186. -- part name: Warning
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   hide card field "Warning"
  190. end mouseUp
  191.  
  192.  
  193. -- part contents for card part 15
  194. ----- text -----
  195. Packet
  196.  
  197. -- part contents for card part 16
  198. ----- text -----
  199. Modem
  200.  
  201. -- part contents for card part 17
  202. ----- text -----
  203. Packet
  204.  
  205. -- part contents for card part 20
  206. ----- text -----
  207.  
  208.           You may NOT exit this card 
  209.       until you have set the options !!!!
  210.  
  211. -- part contents for card part 4
  212. ----- text -----
  213. n6phj
  214.  
  215. -- part contents for card part 8
  216. ----- text -----
  217. 9600